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1 . 0 PURPOSE 

The purpose of this Technical Memorandum is to provide 
documentation and user information for the S-191 Single 
Spectral Scan Analysis Program. A breakdown of the com- 
putational algorithms is supplied in appendix A, followed 
by the program listing and examples of sample output in 
appendices B and C, respectively. Appendix D contains a 
copy of the flow chart which describes the driver routine 
in the body of the main program segment. 
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2.0 INTRODUCTION 

The program is written in XTRAN to be run in a stand- 
alone fashion on the COM-SHARE time sharing system. As 
nearly as possible, it features a self -prompting operation, 
enabling it to be operated with minimum knowledge of the 
internal software logic or system design. Incorporated in 
its structure are the basic Production Processing Requirements 
Equations from PHO-TR524. Most calibration data is from 
MSC- 07744.* The set of resolvable wavelengths that can be 
tested, have been selected from memo TF3-088. Configuration 
Board Directive update S5AD-081 is included, as are the six 
wavelength dependent algorithms furnished by Richard Juday 
(TF3) , which are used to compute the ramp voltages. 


Input to the program is raw data values from S042-2 
and S042-5. Output produces the S042-3 quantities generated 
by DSAD. Detector temperature ratios, emissivities , dichroic, 
and mirror reflectivities are generated internally by table 
lookup single and double linear interpolations as appropriate. 
A skeleton scheme of program logic flow is given in appen- 
dix D. 


*MSC- 07744 is Earth Resources Experiment Package TeREPI 

Calibration Data. 
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3.0 OPERATING INSTRUCTIONS 


3.1 General Discussion 

A general discussion follows: 

• The program may be run from any terminal having 
access to the COM-SHARE time sharing system. 

• The input to the program consists entirely of 
numeric data and may be keyed in free format. 

For example, any legitimate manner of representing 
FORTRAN data types will be recognized. 

• Where the program requests two or more data items 
to be input, keying in an incomplete data set will 
cause the program to prompt for additional input. 
However, inputting spurious or extra data will 
likely generate false output. 

• In the event the terminal sets idle after apparently 
keying in a correct response to a request by the 
program, a status check can be made on the system 
without interrupting the program by simultaneously 
depressing the "control" and "shift” keys and "L." 
The system generally will respond with an R, D, or 
T. Their meaning is as follows: 

R = job is presently active within core 

D ■ I/O disk transfers are taking place 

T = waiting for terminal input 
Most commonly, T means the user has failed to key in 
a "carriage return" after inputting data. 
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• Internally accumulated noise will be reflected by 
spurious symbols appearing on the output hardcopy. 
Before entering data, this noise should be cleared 
by keying successive (control A). 

• The program will be operated under control of the 

XTRAN subsystem whose ready symbol is Whenever 

the plus sign appears as the first symbol of a line, 
the system is waiting for an XTRAN command, NOT data. 

• Any operation may be aborted at anytime by hitting 
the "escape" key. 

3.2 System Setup 

Because this procedure is flexible and subject to change, 
information regarding this area will not be included in 
this memorandum, but may be obtained by contacting Ed Downes 
at 483-3155 or by mail code C-09, and a copy of the current 
documentation will be forwarded under separate cover. 

3.3 Log-in Procedures 

See 3.2 above. 

3.4 Loading the Program 

See 3.2 above. 



i 



T 


1 


I 


1 


1 


I 



I 


\ 


3.5 Program Options 


Discussion: 

There are two means whereby the user may control and 
guide the sequence by which the program processes data. 

The first is by responding appropriately to the self -prompting 
commands generated within the hard-wired logic flow. This 
includes the selection of channel number, ramp length, etc. 
This also covers the reread capability whereby the program 
outputs a message such as: 

Keyin "0" to continue, "L" to change line "L" = . . . 

In the event an error has been made in entering a data 
set, inputting "L," where "L" is the line number to be 
changed, will cause the program to backup to allow a new 
datum to be keyed in. This continues until a zero is 
entered to continue. 

The second means to alter program flow is external to 
the normal logic and is applicable when a system error has 
aborted the program or when the "escape" key is hit. Both 
actions return control to the XTRAN system which is verified 
by the appearance of a plus sign (+) as the first character 
of the output line. At this point entering the XTRAN command 
"go line carriage return," where "line" refers to the 
circled numbers on the flow chart in appendix D and the 
statement labels in appendix B. Executing this command 
will reenter the program at that line with all indexes and 
registers set at the same values as when program control was 
lost or abandoned. The most common use of this command will 
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be when nonsequential data sets are processed. See appendix C 
for a sample output which demonstrates this capability. 

A special option allows the processing of channels 
3 and 5 simultaneously. A prompt mode instructs the user 
for input. 

3.6 Input 

Discussion: 

Input parameters are generally a function of the 
channel selected; however, common to all channels are the 
following items in the order requested by the program: 

• Scan day-hour, minute, second 

• Ramp length (in counts) 

• Channel number 

1 ■ long wavelength negative (HgCdTe) 

2 - near infrared (PbS) 

3 * short wavelength (Si #1) 

4 ■ ramp counts 

5 * short wavelength (Si #2) 

6 * long wavelength positive (HgCdTe) 

Also common to all channels are the following: 

• Eleven sequential A4 raw count values from S042-5 

• Five sequential A (channel) raw count values from 
S042-5 
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Additional input required for long wavelength channels: 

• Scan dichroic temperature from S042-2 data 

• Scan reference temperature from S042-2 data 

• Scan ambient temperature from S042-2 data 

• Scan sphere temperature from S042-2 data 

• Scan heated cal temperature from S042-2 data 

• Scan detector temperature from S042-2 data 

Additional input required for near infrared calculations: 

• Scan detector temperature from S042-2 data 

A demonstration of input parameters can be seen in the 
appendix C model output. 


3.7 Output 


Discussion: 

Output is a function of channel selection and is treated 
separately as fallows: 

• Long wavelength (for each wavelength) 

(1) Table 1 which contains the wavelength associated 
row number, wavelength, wavelength ramp 
voltage referenced to a 4.86 volt (971 count) 
ramp, the actual ramp voltage used in cal- 
culation, and the actual ramp voltage con- 
verted to counts 

(2) A printout of the scan temperature parameters 
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(3) Tabic 2 which contains the wavelength associated 
row number, wavelength, responsivity , emissivity, 
dichroic reflectivity, mirror reflectivity, and 
detector temperature ratio 

(4) The linear equations output by the least, 
squares fit of the 11 and 5 inputted S042-5 raw 
data values, respectively 

(5) VCHAN, which is the output of the Configuration 
Board Directive S8AD-018 calculations 

(6) VBAR as described in appendix A 

(7) Blackbody radiances for the dichroic, reference, 
ambient cal, sphere, and heated cal tempera- 
tures 

(8) Reference radiance calculation 

(9) Source radiance at the chopper cal for the 
ambient source 

(10) Source radiance at the chopper cal for the 
heated cal source 

(11) Channel number 

(12) Radiance at the chopper 

(13) Radiance at the calibration source 

(14) Radiance at the aperture 

(15) Scan time of computed values 

• Short wavelength (for each wavelength) 

(1) Table 3 which contains the same type of infor- 
mation provided in table 1 (see 3.7, number 1), 
plus the responsivity 
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(2) Scan time of computed values 

(3) The linear equations output by the least 
squares fit of the 11 and 5 inputted S042-5 
raw data values, respectively 

(4) VCHAN, which is the output of the Configuration 
Board Directive S5AD-018 calculations, is 
shown in both volts and counts 

(5) SWLI, the short wavelength radiance 

(6) Channel number 

(7) Responsivity 

• Near infrared (lead sulphide) 

(1) Table 4, similar to table 3, with the addition 
of the detector temperature ratio 

(2-7) See 2 through 7 above. 

(8) Detector temperature ratio 

3.8 Logout Procedures 


To logout simply: 

• Keyin "escape" (system responds with "+") 

• Keyin "control G" (system responds with "-") 

• Keyin "log carriage return" 

• Disconnect handset from the acoustic coupler when 
the carrier light goes out. 
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4.0 ADDITIONAL REMARKS 

i 

• The S042-2 ambient temperature is used for the 
sphere temperature. 

• The S042-2 package temperature is used for the 
lead sulphide detector temperature. 

• Calculations for the short wavelengths in the range 
of 1.1 to 1.4 micrometers have not been programmed, 
but may be included at a later date. 

• Appendix E was included to show how the S042-5 
values were selected for the sample output shown 
in appendix C. 

• It should be noted that the responsivities in the 
sample output in appendix C have all been set equal 
to one. This is not the normal case, but is due to 
the fact that at this writing, the correct respon- 
sivities have not been received. Upon their 
receipt, they will be included to the program and 
output appropriately. 
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APPENDIX A 

LISTING OF ALGORITHMS 




A.l. 

Algorithms used to compute channel 

A4 voltage 

A.l.A. 

A.l.B. 

Select wavelength ■ "L" 
Choose coefficients (Al, 

A2, A3) from A.l.C. through 

A.l.C. 

A.l.H. 

0.40 < "L" 

< 0.71 



Al * 1.14527 
A2 = 3.41492 

Segment 

2 

A.l.D. 

A3 = 0.0237844 

0.72 < "L” 

< 1.36 



Al = 2.67633 
A2 = 1.52349 

Segment 

3 

A.l.E. 

A3 = 0 

1.38 < "L" 

< 2.48 



Al = -1.64778 
A2 = 0.966462 

Segment 

1 

A.l.F. 

A3 = 0.265708 

6.00 < "L" 

< 9.20 



Al = 0.975941 
A2 = 0.266592 

Segment 

6 

A.l.G. 

A3 = 0.00798181 

9.20 < "L" 

< 12.7 



Al = -3.12383 
A2 = 0.490235 

Segment 

4 

A.l.H. 

A3 = -0.00932054 

12.7 < "L" 

< 16.0 



Al = -2.04175 
A2 = 0.288636 

Segment 

5 


A3 = 0 


A- 1 



A.l.I. 


Compute V'A4 » A1 + A2 • L + A3 • L 2 * (4.86 ramp 

volt VA4) 

A.l.J. V'A4 • ramp/4.86 * channel A4 voltage for wavelength 

"L" and ramplength "ramp. 1 ' 

A. 2. Algorithm used to compute blackbody radiances 
Description of parameters: 

BT(K) = blackbody radiance for "K" 

K * 1 « dichroic 

K * 2 ■ reference 

K * 3 - ambient 

K ■ 4 ■ sphere (ambient used) 

K ■ 5 * heated cal 

T(K) = temperature in degrees kelvin for "K" 
VV(1,L) * wavelength responsivity 


A. 2. A. _ 11909.0 

BTtK) (vV(l.L)) 5 • ( e U4388.6/(VV(l,L) .-T(KJ) .jj 

A. 3. Algorithm used to compute reference radiance 
Description of parameters: 

BT(2) = reference blackbody radiance 
BT(1) = dichroic blackbody radiance 
RHOC = chopper reflectivity 

A. 3. A. RI * reference radiance * RHOC • BT(2) + (1 - RHOC)* 

BT (1 ) 


A. 4. Algorithm used to compute the source radiance at 
the chopper cal for the ambient source (RISA) 
Description of parameters: 


VV(3,L) = wavelength emissivity 

VV(4,L) ■ wavelength dichroic reflectivity 
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BT ( 3 ) * ambient blackbody radiance 
BT(1) * dichroic blackbody radiance 
BT C 4 ) * sphere blackbody radiance 

A. 4. A. RiSA - VV ( 3 , L ) • VV(4,L) • BT(3) ♦ (1 - VV(4,L)) • 
BT (1) ♦ (1 - VV ( 3 , L ) ) • VV(4,L) • BT(4) 

A. 5. Algorithm used to compute the source radiance at 
the chopper cal for the heated cal source (RISH) 
Description of parameters: 

VV(3,L) * wavelength emissivity 
VV(4,1.) « wavelength dichroic reflectivity 
BT(1) * dichroic blackbody radiance 

BT(4) = sphere blackbody radiance 

BT(5) = heated cal blackbody radiance 

A. 5. A. RIS1I = VV (3,1.) • VV(4,L) • BT(5) + (1 - VV(4,L)) • 
BT ( 1 ) + (1 - VV (3 ,L) ) • VV ( 4 , L ) • BT (4 J 

A.O. Algorithm used to compute "VBAR" 

Description of parameters: 

VCIII = output of equation A.l computations 

after being massaged by Configuration 
Control Board Directive S&AD-018 
algorithms 

B ( I ) = bias for channel "I" 

VV(6,L) = wavelength detector temperature ratio 

A. 6. A. VBAR * (VCHI - B(I)) • W(6,L) 

A. 7. Algorithm used to compute the radiance of the 
chopper 

Description of parameters: 

VBAR = (as in A. 6 above) 

I = channel number 
VV ( 2 , L ) = wavelength responsivity 
RI * reference radiance 

A- 3 






A -m* 


jiFnr rifa.T 



A. 7. A. t.WLIC = (-1) 1 • VBAR/VV (2 ,L) ♦ RI 

A. 8. Algorithm used to compute the radiance at the cali- 
bration source 
description of parameters: 

I.WI.IC * radiance at the chopper 
VV(4,I.) = dichroic reflectivity 

BT(1) = dichroic blackbody radiance 

A. 8. A. LWI.1S - (LWI.IC - (1 - VV (4 ,L) ) • BT(1)/VV(4 ,L) 

A.',). Algorithm used to compute the radiance at the 
apcrtu re 

description of parameters: 

I.WIJS * radiance at the calibration source 
VV (5,1.) = mirror reflectivity 

BT(3) = ambient blackbody radiance 

A . ** . A . LWLI1 : = (bWUS - (1 - VV(5 ,L) ) • BT ( 3) /VV (5 ,L ) 

A. 10. Algorithm used to compute short wavelength radiance 
for channels 3 and 5 
Description of parameters: 

VCII1 = (as in A. 6) 

B ( I ) = (as in A. 6) 

VV(2,L) = wavelength responsivity 

A. 10. A. SWLI = (VCII1 - B(I))/VV(2,L) 

A. 11. Algorithm used to compute short wavelength radiance 
for channel 2 

Description of parameters: 

VCHI * (as in A. 6) 

B(I) = (as in A. 6) 

VV(6,L) * lead sulphide detector temperature ratio 
VV(2,L) * wavelength responsivity 

A- 4 
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A. 11. A. SWLI(PBS) 


(VCI1I - B(I)) •* W(6,L)/VV(2,L) 
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Cl THIS PROGRAM IS DESIGNED TO ACT Mk M » INGLE SPECTRAL SCAN ANALYZER 
Cl AND UTILUIS THE PH0-TRS24 PRODUCTION PROCESSING «EOUIREMENTS EQUA- 
Cl T IONS# MSC-07744 CmLIBRATION DATA# MEMO IfJ-WAA WAVELENGTHS# AND CON- 

Ci FIGURATION BOARD DIRECTIVE SAAO BIG UPDATE TO REPRODUCE THE SO 42-3 
Ct OUTPUT VALUES GENERATED BY D.S#A#D# USING RAW DATA "SO 42-2"# AND 
Cl "SO 42-5"# INPUT. ALSO INCORPORATED ARE THE SIX WAVELENGTH DEPENDENT 

Ct ALGORITHMS PROVIDED BY RICHARD JUDAY# <tP3># TO COMPUTE THE RAMP DE- 

Ci PENDENT CHANNEL VOLTAGES. 

Cl 

Ci DESCRIPTION OF PARAMETERS l 

C i 

Cl BT(1»2»3»4»5) - BLACKDODY EQUATIONS FOR 

Cl Tll> ■ TD » DICHROIC TEMPERATURE 

Cl TIP) - TP - REFERENCE TEMPERATURE 

Cl T(3> - TA - AMBIENT TEMPERATURE 

Ct T(4 ) « TS » SPHEPE TEMPERATURE 

Ct TC 5 ) » TH * HEATED CAL TEMPERATURE 

Cl 

Ci ’".'(I) ■ LAMBDA CVAVELEMOTH IN MICROMETERS) 

Ct VV<2) » FESPONSI VI TY 

Cl VV < 3 ) • EMI SSI VI TY 

Cl VVC4> « DICHROIC REFLECT IV* TY 

Ci VV < 5 ) « MlPF.or. REFLECTIVITY 

C: VV ( 6 ) * DETECTOR TEMPERATURE PATIO 

Cl W 17) • WAVELENGTH VOLTAGE REFERENCED TO A.A6 VOLT RAMP 

Cl VViA) « WAVELENGTH VOLTAGE REFERENCED TO ACTUAL RAMP 

Cl VV< A ) > WAVELENGTH COUNTS REFERENCED Tn ACTUAL RAMP 

C t 

C: VV * MAIN PROGRAM RATA ARRAY (STORED EXTERNAL TO PROGRAM) 

Ct V = TABLE LOOKUP ARRAY EOT E M I SS I VI TY/PHOD/RHOM/ 

Ct V(1-2*1-3B) * EMI SSIVI TY 

Ct VO -A# 1 - 38 ) = DICHROIC PEFLFCTI VI TY 

Ci 7(5-6,1-11) « MIPROR REFLECTIVITY 

Ci V((l#3#5).l-38> ■ WAVELENGTH 

C: TFnr « DATA ARRAY FOR DETECTOR TEMREFATVRE PATIO COMpMTATION 

Cl U « CHANNEL BIAS ARRAY 

Ct S * LITERAL ARRAY FOR TEMPERATURE NAMES 

Cl RHOC = .99 = CHOPPER PEFLFCTI VI TY CALCULATION 

Cs C"T = . O35302AA * VOLT PER. COUNT RATIO 

Ct TEG = 273.2 = CENTIGRADE TO HFLVIN CONSTANT 

Cl 

Cl 

COMMON B<6), '’VCR# 90 ) # 7(6,38) 

STRING S(5) 

DIMENS 10" TEFP( *, A ) 

DIMENSION T ( A ) # BT(S). DAY(A> 

DATA TERP /!.#!.# I. # 1 . # I . # 1 . # 1 . 1 1 # 1 . 1 1 # 1 . II, l.ll#l. 12,2.1# 

1 .2A, 1 , 26 , 1 .26, 1 .2 A , 1 . 32, A . 3, 1 • A A , l • A A , 1 . A A , 1 • A A , | . ^ A , 7.2/ 

DATA B, PHOC, CNT, DFG 

/. 296,. 02*3,. OSSA,. t,.0PS,.?00,.99,.005«02AA,273.2/ 

DATA S /‘DICHROIC T^mPEPATURE * , ‘ REFERENCE TEMPEPAT'JRF • , 

•AMBIENT CAI. SOVPCF TEMPERATURE * , * SPHEPE TEMPfPATVRF •„ 

•HEATED CAL SOURCE TFMPEPATUPE • / 

99 FORMAT (9F13.7) 

9A FORMAT (I3,feX,F6.2,5X,F6.0,6X,FA.5,AX,F7.S,3X,F9.7,n(,F10«A) 

97 FORMAT ( F6 .2, 1X,F6.0,FA.S, IX, F7. A, 1X.F9.7, IX, FA. 2, 1 v, FA. 3, F«. 3 , F» . 3 

) 

96 FORMAT (I3,2X,F6.2,FI0.S,2X,F11.6,AX,FI3.A) 

95 FORMAT (6(F7.3,2X)) 
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94 FORMAT (6<F7«3#2X># IS) 

93 FORMAT Cl3#2X,F6.2#Ft0.5#2X,ril.6#4X#F13.A#5X,r7. l> 

92 FORMAT < I3#2X«F6. 2#Fl 0.5# 2X,F 1 1 .ft,4X,F13. A#F9.«#F1 1 .7) 

OPEN C2#INPUT#/W/> 

OPEN (3# INPUT# /V/ > 

17 READ (2#99) VV 

READ(3# 95 ) < < V< J# J2 )# J- 1 # 6> # J2» l , 38 > 

12 DISPLAY • S-191 SINGLE SPECTRAL SCAN ANALYTE R . . . 

• • ‘ . 

DISPLAY • COMPILE DATE! *#.CDATE. 

DISPLAY ********************************************************** 
*+***«*• * 

IV ■ 1 

DISPLAY • KEYIN SCAN DAY#HR#MIN# SEC ■ •## 

ACCEPT DAY 

DISPLAY ‘KEYIN RAMP LENGTH IN COUNTS - •## 

ACCEPT RAMP 

DISPLAY ‘KEYIN CHANNEL # • •## 

ACCEPT I 

FOR L*1 #9fltCALL VA4 < VVC 1 #L > # VVC 2#L ) # W< 7# L) # VV( A#L^# RA M P# W(9#L ) « I 
) V 

C : 

Ct 00 3 -SHORT VAVELENOTH-- GO 2 = LONO i’AVELENGTH--GO 1 « NEAR UP. 

ct 

0 00 TO ( 2# 1 # 3# r ' ,2) I 

C ENTEF 1.0!'“, •AVELFNOTH SECTION.... 

C 

il DISPLAY 

DISPLAY ‘ LONG VAVELENGTH TABLE 1‘ 

DISPLAY ‘ROW --LAMBDA— REF VOLTS --ACTUAL VOLTS — RELATIVE C0t»NT‘ 

I' HITE (0#9ft) CL#VV( 1#L)#(W(M,L)#M«7,9),L-1»33> 

DISPLAY 

14 DISPLAY ‘INPUT TD#TP,TA,TS,TH, IN DEGREES CENTIGRADE ' 

DO 5 K - 1#5 

ft DISPLAY 'KEYIN SCAN ‘,#S(K>#‘ ■ •## 

ACCEPT T( !<) 

S CONTINUE 

7 DISPLAY 'KEYIN DF.TFCTOR TEMPERATURE IN DEGREES KELVIN * ‘ ,* 

ACCEPT TEMP 

DISPLAY • TD#TF# 1 A»TS» TH#TEMP «•# T.TEMP 
FOR K» 1 # 5 t TlK) = TCK) ♦ DEG 

0 S 

C: COMPUTE INTERPOLATED DETECTOP TEMPERATURE. 

Ct 

12 = 1 

IF tTEMP.OT.90. ) 12-2 
IF tTEMP.0T.95. ) 12-3 
II - 1 

DO 33 N - 1 #33 
IF < VV( 1 « N ) . RT. A. fl > II - 2 
IF tVV< 1#N).GT. 12. ) II - 3 
IF CVV( 1#N).RT. 13. ) 00 TO 44 

CALL INTER! t 1 2, TEMP, TFPPd 1 # 1 2 > # TFRP( I 1 # I 2 + 1 ) # WC ft #N ) ) 

00 TO 33 
44 II -4 

IF tVVtI#N).RT.15. >11-5 

CALL INTEr 1 C I2,TEMP#TFPP< 1 1# I2)#TFPP( 1 1# 12*1 >,W(ft#N) > 

VI ■ VV(ft# N# 

CALL INTER 1 (12# TF M P# TEPPC I 1 + 1,12)# TFPPt I l + I# 12 + 1 )#VV(ft#N ) ) 

V2 - V V < ft # N ) 

CALL INTFI2 ( VI , V?# VV< I #N > # I 1 # WCA#M> > 

33 CONTINUE 
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COMPUTE EMISSIVITIES. AMD REFLECTIVITIES 
J1 ■ I 

DO 83 J ■ 3.5 
J2 ■ 1 

DO 84 K ■ 1*33 

86 IFl t Wl l/K>.GE.V(Jl/J2))« AND* (W( 1 /K).LE. V( J1 > J2* I ) > > GO TO 85 
J2 ■ J2 ♦ I 
GO TO 86 

85 XI « V( Jl/ J2> 

X2 » V(Jl# J2*l > 

YI ■ Vt.mi/82) 

Y2 ■ V(Jl+l/J2+l) 

DX ■ X2 - XI 
DY » YB - Yl 
DA « VVi 1 . tO - XI 
VV< J/ K> ■ Y1 ♦ (DA*DY)/DX 
84 CONTINUE 
J1 ■ J1 ♦ 2 
83 CONTINUE 
C» 

C 1 1 WRITE OUT TO PEINTEP THE INPUT DATA ARRAY. 

C» 

21 DISPLAY 

DISPLAY ' LONG WAVELENGTH TABLE 2' 

DISPLAY »row— LA^P da — RESPONSIVITY--EMISSIVITY--DICHROIC MIRPOP 

---FDET.TEMP* - , 

WHITE (0/ 9R) (J> CW(Mz J)/M*I /6>/ J-1.33) 

DISPLAY , s0s0s0s0r0»0*0«0m0«0*0»0*0«G«0*0»0»0*0«0»0«0*0»O«0»0»0«0» 
spsfl'Osfls • 0 

DO 10 L * 1.33 

9-DISPLAY * SCAN DAY-HF »MINl SEC « • /#DAY( 1 >/'-', #DAY( P># ' I '/ *DAY 

3), • : • .#DAY(4> C 

CALL INPUT ( L/ I / VCH I * VCH2 # I VP ) 

A VBAP « ( VCHI - B( I > > * VV(6,L) 

DISPLAY * COMPUTED VBAP ■•z#VBAP 

DISPLAY ' LAMBDA/ RESP / EMISS. / PHOr. / RHOM. /RHOC/ TD / 


TP 


>> ) 


' TA’ 

WRITE (0/97) (VV(LL/L)/LL«l/5)/RH0C/T(l )/TC2>/T(3> 

FOP K«1/5»BT(K>*( 1 1909./(W( 1/L)**5*(EXP( 143*8. /(W< 1 #L)*T(K> >) • 1 


FOP 
R I 
PISA 


K* 1 / 5 t D I SPL AY 
• RH0C*BT(2> ♦ 


#BT(K)/ ' « BLACKBODY 
( 1 * -PHOC ) *BT ( 1 ) 


RADIANCE FOP '/#S(K> 


RISH » 

WLLIC ■ 
WLLIS - 
WLLIF « 
DISPLAY 
DISPLAY 

r source ' 

DISPLAY 
CAL SOURCE' 
DISPLAY 


VV(3/L)*VV(A/L)*BT(3> ♦ < < 1. -VVC4/L) >*BT< 1 > > 

♦ ( 1 .-VV(3/L> >*W(4/L)*BT<4> 

VV ( 3 / L ) *VV< 4 . L ) *BT < 5 ) ♦ ( ( 1 . -VVC4/L) )*BT( 1 > ) 

+ ( 1 .-VV(3/L> >*W(4/L>*BTC4> 

(-1. >**I*VBAP/VV(2/L) * RI 
(WLLIC-( I .-VVCA/L>)*BT( 1 > )/VV(4zL) 

CVLI.IS-C 1 ,-VV(5/L)>*BT(3> >/VV(5/L> 

# R I / ' « rEFEFFNCE RADIANCE CALCULATION' 

#RI SA. • * SOURCE RADIANCE AT THE CHOPPED CAL FOP THE A M F 18 

N 

#R I SH/ * = SOUPCF PADIANCF AT THE CHOPPED CAL FOP THF HFATF 

D 


'LAMBDA «',#VVCI/L>/ 


CHANNEL 


> # I i 


LVLIC ■ • / # M ,1 . 1 C 


DISPLAY • LV LIS «'/#WLLIS/' 
DISPLAY •==«»*«*=*«•»«.»==. 


LVLIF »'/#VLLIF 


10 continue 
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QO TO 18 

c 

c ENTER SHORT WAVELENGTH SECTION** •• 


C 

3 DISPLAY 1 •••••••■••••■•SHORT WAVELENGTH CALCULATIONS FOLLOW«»»*»«» 

ocas 1 • 

DISPLAY ' SHORT WAVELENGTH TABLE 3* 

DISPLAY ‘ROW— LAMBDA— REF VOLTS— ACTUAL VOLTS— RELATIVE COUNT— PFS 
ONSIVITY' P 

WRITE CP/93 > CN,VVC I ,N) * C CVVCM*N )*M>7*9), WC2#N > )*N>34*62 ) 

DISPLAY * »0»0»0*0»0b0»0»0«0»0»0»0»0»0b0»0»0»0«0«0»0b0»0»0»0»0*0“0“ 

= 0*0t:0»fl«* 0 

DO 20 L ■ 34*62 

15-DISPLAY • SCAN DAY«HRlMINlSEC •• * #DAY< 1 >* • - • »#DAY<2 ) * • I • * fDAYC 

>,• f,#DAYC4) 3 

CALL INPUT (L* I *VCHI *VCH2# IV2) 

IT - I 

11 SV'LI ■ tVCHI - BUT)) / VV(2*L) 


DISPLAY • LAMBDA • • » #WC 1 »L>» ’ CHANNEL •• »# IT* * SVLI ■•*#SWLl, 

• PESP « * * #VVC 2, L) 

DISPLAY ****************************** 
***•*• 

IF CIV2.OT.0) IT ■ IV? 

IF UV2.OT.0) VCHI ■ VCH2 
IF C1V2.BT.0) 00 TO II 
20 CONTINUE 
r,0 TO IB 

c 

c ENTER LEAD SULPHIDE SECTION 

0 

1 DISPLAY •••««*“*«*«•• •••NEAP INFRA-PED CALCULATIONS FOLLOW* •■■■* *« 
= = = “• • 

DISPLAY ’ KEYI N DFTECTOR TEMPERATUPE IN DEORF.ES CENTIORADE » ' 
ACCEPT TEMP 

FOR L»63,90l CALI. FDET1 < VVC I »L) »TEMP, W( 6,L) > 

DISPLAY • LEAD SULPHIDE TABLE 4* 

DISPLAY *ROV--LAMnDA--PEF VOLTS— ACTUAL VOLTS- -PELATIVE COUNTS--PE 
- -FT F.T 1TF.MP* S 

WRITE tO, 92) tN, VVC 1 ,N ) * C CVVCM,N ) ,M«7» 9 ), VVC 2*N )* VVC 6,N > ) »N»63, 90 > 

D I SPLAY * »0 »0*0»0«0»0 ■O»0»0»0»0*0»P »0*0»0"0*0“0 ■0*P B 0"0“P“0 “0*0*0 = 

= i'sfl*0 K0B0B • 0 

DO 39 L « 63,90 

31-DISPLAY ' SCAM DAY-HPtMIN»SFC ••» #DAY ( 1 #DAYC 2 ),’ J ' , #DAYC 

), • !*,4>DAYC4) 3 

CAl.L INPUT CL, I , VCHI , VCH2, I V2 ) 

SWLI * (VCHI - DCl>) • VV ( 6 , L ) / VVC2,L> 

DISPLAY 'SWLI • * , # SV'LI * • LAMBDA - • , #VVC I , L) , ’ CHANNEL “',#1 
DISPLAY ' FDF.T * • , » VVC 6, L) , • RESPONSIVITY •*,#WC2,L) 

DISPLAY '****♦♦•*****«*«***«*»****♦,*. 
****•« 

39 CONTINUE 

18 DISPLAY 'KEY IN I TO RECYCLE -- 0 TO TEPMINATE PUN ' , • 

ACCEPT ISF.T 

IFC ISET.EO. I ) 00 TO 12 

DISPLAY • **************** ***OFF THE AIR*************************' 


00 TO 22 
D6 ON EF.ROPl 77 

77 DISPLAY '£1!0P(77> INTERRUPT, L “ • ,#L,', KEYIN NEW L » ’,# 
ACCEPT NEW 
L • NEW 

ON ERROPl SYSTEM 

no TO (9, 31, 15, 1 , 15, 9) I 

<■>•> run 
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c 
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c 
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c 
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o 
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c 

c 

c 

c 

c 

c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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SUBROUTINE “INTER! 1 ' PERFORMS * SINGLE INTERPOLATION OF A 
POINT “T“ WITH RESPECT TO POINTS “TI“aAND ”T8" 

USAGE t CALL INTER! C M« T# Tl# TG# V6 ) 

DESCRIPTION OF PARAMETERS 

M • LOWER BOUND OF TABLE ARRAY M Y" VALUE. l.E. <TA9LECX#Y) ) 

T • POINT TO BE INTERPOLATED 

Tl* LOWER BOUND TABLE POINT 

T2« UPPER BOUND TABLE POINT 

V6* RETURN VALUE OF IMTERPOLmTED POINT 

SUEhOUTINE INTER! <M#T#T l#T8# V6 ) 

DELT • 72 - Tl 

TEP ■ (8s. • 3*iM-l>> - T 

a ■ UfcL'J • TEP / 5. 

VA « Tl - X 
RE 1 URN 
END 


SUBROUTINE INTERS PERFORMS INTERPuLlU ION OF 
i HE OUTPUT OF SuBnOuTlNE INTER 1 

USAflEl CALL INTERS (VI# VS# V# II# VT) 

DESCRIPTION OF PARAMETERS 
VI « 1ST OUTPUT OF INTER I 
VS • SND OUTPUT OF INTER I 
V ■ WAVELENGTH INPUT 

II ■ LOWER BOUND OF TABLE ARRAY M X M . I.E. <TABLE(X#Y# > ) 
VT - RETURN VALUE OF ITERS 

SUBROUTINE INTERS (VI # VS# V# 1 1 #VT ) 

DIF « S. 

IF (I1.EQ.5) DIF • 1. 

D 1 ■ VS - VI 
D2 • V - 15. 

IF (I1.E0.A) DP - V - 13. 

X « D1 * DS / DIF 
VT - VI ♦ X 
RETURN 
END 

SUBROUTINE LINFIT 
PURPOSE 

MAKE A LEAST-SQUARFS FIT TO DATA WITH A STRAIGHT LINE 
Y « B*X ♦ A 


USAGE 

CALL LINFIT ( X, Y, S IGMAY#NPTS,MODE# SIGMAA.B, SIGMAB#R, VL# ICH) 

description of parameters 

X - ARRAY OF DATA POINTS FOR INDEPENDENT VARIABLE 

Y - ARRAY OF DATA POINTS FOR DEPENDENT VARIABLE 

SIGMAY - ARRAY OF STANDARD DEVIATIONS FOR Y DATA POINTS 
NPTS - NUMBER OF PAIRS OF DATA POINTS 

MODE - DETFPMINES METHOD OF WEIGHTING LEAST SQUARES FIT 
♦1 (INSTRUMENTAL) VElGHT(l) • I . /SI GMAY( I )**P 
0 (NO WEIGHTING) WEIOHT(I) » 1. 

-I (STATISTICAL) VFlGHT(I) « l./YO) 
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A - Y INTERCEPT OF FITTED STRAIGHT LINE 

SIGMAA - STANDARD DEVIATION OF A 
B - SLOPE OF FITTED STRAIGHT LINE 

SIGMAB - STANDARD DEVIATION OF B 
R * LINEAR CORRELATION COEFFICIENT 

VL -WAVELENGTH 

CH - CHANNEL 


» LINFIT — LEAST SQUARES LINEAR FIT. 

i 

SUBROUTINE LINEITIXl ,Y1 ,SIGMAY1 #NPTS,MCDE, A,SIGMAA«B«SIOMAB,R*VL, I 
) Z 

DOUBLE PRECISION SUM, SUMX,. SUMY, SUMX'i, SUMXY, SUMY 2 
DOUBLE PRECISION XI, YI, WEIGHT, DELTA, VARNCF 
COMMON /C/ X(1I), YC 1 1 > , SIG* C't 1 ! > 

ACCUMULATE WEIGHTED SUM 

11 StJM ■ A. 

S’JMX ■ A. 

SUMY • 0. 

SUMXS • 0. 

SUMXY • 0. 

SUMY2 « 0. 

21 DO 50 I » 1 ,NPTS 
XI - X(I) 

YI « Y ( I ) 

IF l MODE ) 01, 3ft, 3A 

31 IF CYI) 34, 3ft, 32 

32 VEIGHT « 1. / YI 
GO TO 41 

34 ’’EIGHT «1. / (-YI) 

GO TO 41 
3ft VEIGHT - 1. 

GO TO 41 

30 WEIGHT • 1. / SIGMAYI I )**2 
41 SUM * SUM ♦ WEIGHT 
S’JMX ■ SUMX ♦ V.E1GHT*XI 
SUMY ■ SUMY ♦ WEI GHT*YI 
SUMX2 » SUMX? ♦ VEI GHT*XI *XI 
SUMXY - SU M XY ♦ VEir,HT*XI*YI 
SUMY2 ■ SUMY2 ♦ VEIGHT*YI*YI 
S3 CONTINUE 

CALCULATE COEFFICIENTS AND STANDARD DEVIATIONS 

SI DELTA « SUM* SUMXS - S’JMX* SUMX 

A ■ (SUMX2*SUMY - SUMX*SUMXY> / DELTA 
S3 3 ■ l SUMXY*SU M - SUMX*SUMY > / DELTA 
DISPLAY 
DISPLAY 

= = = ' ■ 

DISPLAY ' UOLTAGF ( ' , #VL, ' , * , * ICH, ' > » *,#8,' * SCAN 

D I SPLAY ' BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBRBBBBPBBB. 'BBSSBBBBBBBBEEBB 
ES ' B 

DISPLAY 

RETURN 

END 
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SUBROUTINE VA4 CALCULATES THE CHANNEL 4 REFERENCE 
VOLTAGE ASSUMING A 4.86 VOLT RAMP LENGTH AND STORES 
IN VV(7,L> FOR EACH WAVELENGTH. W<7#L> IS THEN CON- 
VERTED TO THE ACTUAL VOLTAGE# AND RELATIVE DIGITAL 
COUNTS# USING THE ACTUAL RAMP LENGTH AND STORES IN 
VtR#L), AND V(9#L>, RESPECTIVELY 

USAGE t CALL VA4 ( Vl# V7# VR# R# V9« IV ) 

DESCRIPTION OF PARAMETERS 
VI » INPUT WAVELENGTH 
V2 • RESPONSI VITY 

V7 - WAVELENGTH REFERENCE VOLTAGE (4.86 VOLTS) RAMP LENGTH 
VG - WAVELENGTH ADJUSTED VOLTAGE (ACTUAL VOLTS) RAMP LENGTH 

VO ■ WAVELENGTH P.ELATIVE COUNTS TO ADJUSTED VOLTAGE 
R - RAMP VOLTAGE LENGTH INPUT 
IV * ALGORITHM COUNT OPTIMIZER 


SUBROUTINE UA4 t VI «V2#V7, V«»F#V ', IV) 

DIMENSION A(3,6) 

DATA A# VPK# CNT 

'1.14527, 3. 41492, .0237844, 2.67633, 1.52349, 0.0000000, 
-l .64778. 0.966462,0.265708,0.975041,0.266592,0.00798181, 
-3.12383, 0.490235,-. 00932054, -2. 04 175, . 288636, . 0000000, 
4.86, 0.00500244/ 

R2 ■ R * CNT 
IF (V1.LT..71 ) IV = 1 

1 IF (V1.GT..7! ) IV * 2 

2 IF (VI .GT. I .36) IV * 3 

3 IF (VI. GT. 2.48) IV * 4 

4 IF (Vl.GT.9.20) IV » 5 

5 IF (VI. GT. 12.7) IV * 6 

6 V 7 ■ (A( 1 # I V) ♦ At 2, I V ) *V1 + A( 3 . 1 V)*V1 *V1 ) 

V8 = V7*F.2 / VPK 

V9 » V 8 / CNT 
V2 » 1.0000 
RETURN 
END 


0 

C 

c 

c 

c 

c 

r 

c 

c 

c 

c 


SUBROUTINE •’INPUT" ACTS AS A DRIVER ROUTINE TO 
INPUT THE RECFIPT OF THE STANDARD DATA SET PER 
WAVELENGTH OF II CHANNEL 4 VALUES AND 5 CHANNEL 
V(T) VALUES FOR CHANNEL "I", FROM THE TERMINAL. 
ALTERNATIVELY, IF IV2 IS UMEOUAL TO EEFO , THEN 
TWO CHANNELS OF DAT* CAN 5E SIMULTANEOUSLY PRO- 
CESSED FOR THE 5A«F WAVELENGTH. 

uSAGEl CALL INPUT t L, I » VCH I , VCH2, I V2 ) 

uF.aCRl PT 1 ON OF PAT Af-TTERS 

L « WAVELENGTH ASSOCIATED ARRAY POV. I . E."W(X,L>" 

I b INPUT CHANNEL NUMBER 

VCH I » PETUPN VALUE FOR CHANNEL "I" 

VCH? b RETURN VALUE FOR CHANNEL "IV2?-" 

IV? b OFT I ON At, CHANNEL NUMBER "IVP" 
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SUBROUTINE INPUT < L, I, VCHI, VCW8* IV8 ) 

COMMON BI6), W<9, 00) 

COMMON /C/ Dill)* VU»), SIGMAYCII) 

DIMENSION Ctll) 

DATA CNT .00500244 
VCH8 • 0. 

IV8 ■ 0 
DISPLAY 

DISPLAY 'INPUT FOR LAMBDA* »#W( l,L), ' , CHANNEL #',#I,', ROW «',#L 

DISPLAY *KEYI>J 11 POINTS AROUND' ,#W(9,L), ' COUNTS' 

VL - Wtl,L) 

DO 11 J • 1,11 

9 DISPLAY 'KEYIN', #WO,L)» • SCAN(',#J,' ) - 
ACCEPT VCJ) 

CtJ) « VCJ) 

VCJ) » VCJ) • CNT 

DA J) a U> 

11 CONTINUE 

3 DISPLAY 'SAMPLE COUNTS ARRAY - C 

1 DISPLAY ' KEYIN ’•O'* TO CONTINUE, "J" TO CHANCE SCAN "J" ', 

ACCEPT K 

IF t K.OT.0 ) GO TO 2 
IF CDC lflJ.EO.O) 00 TO A 

CALL LINFIT (D, V, SIOMAY, 1 1 , 0, A, SIGKAA,BO, SIGMAB,R,VL, A ) 

TLAM * CVVCR,L) - A > / BO 
TCHANa TLAM ♦ CA.-I) /R. 

KCHA.Na IFIXCTCHAN ♦ .5) 

12 » I 

10 IF CIU2.GT.fl) 12 a IV2 
DO 12 M « 1,11 
C CM ) a fl. 

DCM) a 0. 

VIM) a 0. 

12 CONTINUE 

DISPLAY 'KEYIN 5 CHANNEL' , #12, ' VALUES AROUND RELATIVE SCAN LINE', 
KCMAN # 

DO 5 J a 1,5 
A J J * KCHAN ♦ CJ-3) 

DISPLAY 'KEYIN "J" =’,#J, ' VALUE FOP SCAN',#JJ, • a 
ACCEPT VCJ) 

CCJ) a VCJ) 

VCJ) a VCJ) * CNT 
DC J) a <JJ> 

c . CONTINUE 
00 TO 3 

A CALL LINFIT cT2,V2, S I OKA Y,*>» 0, A, SI GMAA»90 , SI G M AB, P, WC 1,L), I ) 

VC HAN a BO * TCHAN *• A 
VCNTS a VCHAN / CNT 
IF CIV2.EQ.fl) VC HI a VCHAN 
VCH2 a VCHAN 

DISPLAY ' VCHAN C VOLTS ) a»,#vCHAN,' a',#BO,' *',#TCHAN,' ♦ ' » #A 

DISPLAY ' VCHAN C COUNTS) «*,#VCNTS 

DISPLAY 

DISPLAY 'KEYIN "A" TO CONTINUE, ”1" TO INPUT CHANNEL "I" DATA 
ACCEPT I V2 

IF CIV2.0T.A) GO TO 1A 
r,0 TO A 

2 DISPLAY 'OLD SCAN',#K, ' = ',#CCK>,', KEYIN NEW SCAN',#K,' a 
ACCEPT CCK) 

VCK) a CCK) * CNT 
00 TO 1 

A RETURN 
END 
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C SUBROUTINE PDETl COMPUTES THE DOUBLE LINEAR 

C INTERPOLATION OF VALUES FOR THE LEAD SULPHIDE 

C DETECTOR TEMPERATURE RATIO* 

C 

C USAGE I CALL FDET1 CV1,T,V6> 

C 

C DESCRIPTION OF PARAMETERS* 

C VI » WAVELENGTH 

C T ■ DETECTOR TEMPERATURE IN DEGREES CENTIGRADE 

C V6 ■ RETURNED VALUE RATIO 

C 

SUBROUTINE FDETI CV1,T,V6> 

DIMENSION PBS C 5 » 6 > » PCS) 

DATA PBS /fl. 0,17. 4, 83. 3, 24. 5, 34. 0,1. 1,1. 0,1. 17, 1.34, 1.53, 

1.6.1.0. 1.10.1*84,1.44,8.0,1.0,1.10,1.24,1 .44, 

8.4.1 .0. 1 . 19,1.44, 1.00,8.5, 1 .0,1.8185, 1.49, 1.09/ 

K1 * 2 

K2 - 2 

2 1FC CT. OE. PBSCK2, 1 ) ) • AMD. CT.LE.PBSCK2* 1,1))) GO TO 1 

K2 * S2 ♦ 1 
no TO 2 

1 IF((V!.GE.PBS(1,K1)).AND.CV1.LE.PBSC1,K1*1))) go TO 3 
HI * HI ♦ 1 

GO TO 1 

3 K3 * K2 

DO 4 K * 1,2 

xi - pbsc i,m > 

X2 * PBSC 1 ,K1 *1 > 

yi = pbsck3,xi> 

Y2 * PBSC K3, K 1 ♦ 1 ) 

DX * X2 - XI 

DY « Y2 - Y 1 

DA « VI - XI 

PCK) ■ Y1 ♦ t DA*DY )/DX 

K3 « K3 ♦ 1 

4 CONTINUE 

XI a PBSCK2, 1 ) 

X2 a PBSC K2* 1 , 1 ) 

Y1 * PCI) 

Y2 * PC 2) 

D X a XP - XI 
DY * Y2 - Y1 
DA a T - XI 
VA a Y1 ♦ cr‘.*DY)/nX 
RETURN 
END 
*A 
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S-19I SINGLE SPECTRAL SCAN ANALYZER 
COMPILE DATE : APR IS 


KEVIN SCAN DAY#HR#MIN#SEC ■ 85*# M,00 
NEXT DATUM! 44 

KEVIN RAMP LENGTH IN COUNTS ■ 973 
KEYIN CHANNEL # ■ 6 


LONG WAVELENGTH TABLE 1 


ROW- -LAMBDA- -REF VOLTS 

--ACTUAL VOLTS— RELATIVE COUNT 

1 

6.00 

2* 86284 

2.867182 

5T3 • 15669374 

2 

6.30 

2.97227 

2.976778 

595. 065305 <58 

3 

6.60 

3.08314 

3.087814 

617.26155880 

4 

6.90 

3.19544 

3.200288 

639.7454527 1 

5 

7.20 

3.30918 

3.31420! 

662.51698740 

ft 

7.50 

3.42436 

3.429554 

685.57616287 

7 

7.80 

3.54097 

3.546345 

708.92297912 

H 

8. 10 

3.65902 

3.664575 

732. 55743615 

0 

8.40 

3.77851 

3.784243 

756.47953398 

10 

8*70 

3.89943 

3.905351 

780.68927257 

11 

9.00 

4.02180 

4.027898 

805. IR665195 

IS 

9.30 

0 • 6£922 

0.630177 

125.97386862 

13 

9.60 

0.72345 

0.724543 

144.83786372 

14 

9.90 

0.81599 

0.817228 

163.36597417 

IS 

10.20 

0.90686 

0.908234 

181.5581 9998 

1* 

10.50 

0.99605 

0.997559 

199.41454114 

17 

10.80 

1.08356 

1.085204 

216.93499765 

Iff 

11.10 

1 .16939 

1.171169 

234. 11956952 

19 

11.40 

1.25355 

1.255454 

250.96825675 

20 

11.70 

1.33603 

1.338058 • 

267 » 48 105933 

Pi 

12.00 

1 .41683 

1.418982 

283.65797726 

22 

12.30 

1 .49596 

1.498226 

299.49901055 

23 

12.60 

1.57340 

1 .575789 

315.00415920 

?4 

12.90 

1.68165 

1.684206 

336.67689942 

25 

13.20 

1.76825 

1.770928 

354.01287646 

25 

13.50 

1.85484 

1.857650 

371.34885349 

27 

13.80 

1.94143 

1.944373 

38R . 6R4R3053 

2ff 

14. 10 

2* 028 02 

2.031 005 

406.02080757 

29 

14.30 

2.08574 

2.088910 

417.57812559 

30 

14. 60 

2. 17234 

2.175632 

434.91410262 

31 

14.90 

2.25893 

2.262354 

452.25007967 

32 

15.20 

2.34552 

2.349076 

469. 5R605670 

33 

15.40 

2.40324 

2.406891 

481.14337473 

PJPMT 

TDaTP 

aTAaTSaTHa 

IN DEG PEES CENT I GPCDE 

KHYIM 

SCAN ! 

DICHROIC TEMPERATURE * 24 

• R93 

KEYIN 

SCAM 1 

REFERENCE TE M PERATUP.F. * - 

15.252 


KEYIN SCAN AMBIENT CAL SOURCE TEMPERATURE * 23.2R1 
KEYIN SCAN SPHEPE TEMPEPATUPE * 23.281 
KEYIN SCAN HEATED CAL SOUPCE TEMPERATURE ■ 49.085 
KEYIN DETECTOR TEMPERATURE IN DEGREES KELVIN » 86.205 
TP#TP#TA,TS#TH#TEMP - 24.893 -IS. 252 23.2R1 8.3.2-11 

49.025 86 .205 

Example 1. — Long wavelength tables 1 ind 
2; calculations for wavelengths 8.1, 9.3, 
and 14.1 micrometers; and use of contingency 
interrupt. 
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LONG WAVELENGTH TABLE 8 


ROW — 

LAMBDA --RES PONS 

IVITY— EMISSIVITY— 

DICHROIC 

1 

6 .M 

1. 0.96000 

0.66800 

2 

6.30 

1. 0.98000 

0.68500 

3 

6*60 

1 . 1.00000 

0 . 67^00 

4 

6.90 

1 . 1 • 00000 

0 . 677 (V 

5 

7*20 

1 . 1.60000 

0.67700 

6 

7.50 

1 . 1.00000 

0.67700 

7 

7.80 

1 . 1.00000 

0.67700 

6 

8 . 10 

1 . 0.99800 

0.70800 

0 

8.40 

1 . 0.99200 

0.78100 

10 

8.70 

1 . 0.98600 

0.73467 

11 

9.00 

1 . 0.98000 

0.75700 

12 

9.30 

1 . 0. 98000 

0.76073 

13 

9. 60 

1 . 0.97800 

0.74700 

14 

9.^0 

1 . 0.97200 

0.73050 

IS 

10.20 

1 . 0.97000 

0.71700 

16 

10. 50 

l * 6.97000 

O .71800 

17 

10.80 

1 . 0.96400 

0.71200 

18 

11.10 

1 . 0.95600 

0.71800 

19 

11.40 

1 . 0.94400 

0.71800 

29 

11.70 

1 . 0.94000 

0.71833 

?1 

12.00 

1 . 0.92000 

0.78000 

22 

12.30 

1 . * 0.90500 

0.78800 

23 

12.60 

1 . 0.92700 

0.73000 

24 

12.90 

1 . 0.94800 

0.78650 

2S 

13.20 

1 . 0.95900 

0.70500 

26 

13.50 

1 . 0.96500 

0.70850 

27 

13.80 

1 . 0.97900 

0.71000 

28 

14. 10 

l . 1.00000 

0.72700 

29 

14.30 

1 • 1 « 00000 

0.71550 

30 

14.60 

1 . 1.00000 

0.64600 

31 

14.90 

1 * 1 . 00000 

0.57750 

32 

15.20 

1 . 1.00000 

0.55100 

33 

1^.40 

1 * 1 . 00000 

0.55100 

= 0-0*: 

0*0 *0*0*0 *0=0*0 

*0*0*0*0b0*0*0*0*0b 

0B0B0Z0BI 


bCfl'J UAY-Hr iMIN: SEC ■ 854- 14: 0: 

44 

IV PVT 

FOR- 



ESC* 

( INPUT > 9+1 



+no 7 7 



Error 

C77) INTERrUPT# 

L * \» KFYIV MFV 

L * 8 


C-2 


- -MI RROR TOE T. TEMP 

0.9300000 1 .02651000 
0.9307500 1.08651000 
0.9315000 1.08651000 
0. <>388500 1.08651000 
0.9330000 1.08651000 
0.9337500 1.08651000 
0.9345000 1.08651000 
0.9840000 1.08651000 
0,6*8">5«0 1.08651000 
0.9083750 1.08651000 
0.8960000 1.08651000 
“* > R909000 1.08651000 
0.8858000 1.08651000 
0.8807000 1 .(J2651 000 
0.8908000 1.08651000 
0.9085000 1.08651000 
0.9868000 1.08651000 
0.9389000 1.08651000 
0.9416000 1.08651000 
0.9443000 1.08651000 
0.9470000 1.08651000 
0.9497000 1.08651000 
0.9524000 1.02651000 
0.9551000 1.02651000 
0.9588000 1.02675100 
0.9630000 1.02711250 
0.9678000 1.08747400 
0.9715000 1.08783550 
0.9745000 1.08807650 
0.9790000 1.08843800 
0.9835000 1.02879950 
0. 9868000 1.07615600 
0.9886000 1.1 2339£0i0 

0*0 b0b0b0b0b0s0b0b 


i . . i 
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INPUT FOR LAMBDA 8.1* CHANNEL # 6, ROW ■ 8 

KEYIN II POINTS AROUND 732.5S74361 COUNTS 

KEVIN 8.1 SCAN ( 1 ) - 724 

KEYIN 8.1 SCAN! 2 ) ■ 726 

KEYIN 8.1 SCAN( 3 > » 728 

KEYIN 8.1 SCAN! 4 ) - 728 

KEYIN 8.1 SCANC 5 ) ■ 731 

KEYIN 8.1 SCAN ( 6 > ■ 111 

KEYIN 8.1 SCANC 7 ) - V32 

KEYIN 8.1 SCANC 8 ) ■ 734 

KEYIN 8.1 SCANC 9 ) » 737 

KEYIN 8.1 SCANC 10 ) * 737 

KEVIN 8.1 SCANC 11 ) ■ 740 

SAMPLE COUNTS ARRAY ■ 724 72ft 728 728 731 111 

0 734 737 737 740 

KEYIN "0" TO CONTINUE# "J" TO CHANGE SCAN "J" 6 
OLE SCAN 6 « 111# KEYIN NEV SCAN 6 • 732 

KEYIN "0" TO CONTINUE# “J" TO CHANGE SCAN "J" 7 
OLE SCAN 7*0# KEYIN NEV SCAN 7 ■ 734 
KEYIN M 0 n TO CONTINUE# ** J" TO CHANGE SCAN "J” 8 
OLD SCAN 8 * 73/., KEYIN NEV SCAN 8 * 737 

KEYIN ,, 0" TO CONTINUE# "J" TO CHANGE SCAN "J" 10 
OLD SCAN 10 « 737# KEYIN NEV SCAN 10 * 738 

KEYIN ,, 0 M TO CONTINUE# ,, B" TO CHANGE SCAN •* J" 0 

=S558SSSs:8e8SSS88SSSS88$2SSSItK88SIt«tSS8SS88esS«S883tSBS8t88 

VOLTAGE! 8.1# 4) » 8.0032E-03 * SCAN ♦ 3.614808982 

ESS:SSSSSS&S3BB88:C»SSS8SS8IIS8SatMSRt.>SSS8«t««tl3.2tSSES3S 

KEYIN 5 CHANNEL ft VALUES AROUND RELATIVE SCAN LINE ft 

KEYIN '•J" * 1 VALUE FOR SCAN 4 - 394 

KEYIN "J” * 2 VALUE EOF SCAN 5 * 397 

KEYIN "J" a 3 VALUE EOR SCAN ft * 400 

KEYIN *' J“ a 4 VALUE EOF SCAN 7 * 401 

KEYIN ••J" * 5 VALUE For SCAN 8 * 400 

SAMPLE COUNTS ARRAY a 394 397 400 401 400 0 

0 0 0 0 0 

KEYIN ”0'' TO CONTINUE# ” J" TO CHANGE SCAN "J " 0 

SSSSSSS3888SR88&SS8SS8SS8SSSSf8SSISS8B8l8l8S88tSS8S8888SSSSSS& 

VOLTAGE! 8.1# 6) » 8.0032E-03 * SCAN ♦ 1.9447776 

:£SSSSS3B888888SS888S3S38SSS8S8K&888S8888888Bt838S8888S83S8S8S 

VC HAN (VOLTS ) = 1.992542439 a R.0032E-03 * 5.96821789? ♦ 1.9447776 
VCHAN (COUNTS) * 39P. 349 1482 

KEYIN "O" TO CONTINUE, "I" TO INPUT CHANNEL "I" DATA 0 

computed vbar * 1.840062739 

LAMDOA/ P.ESP / EKISS. / RHOD. / PHOv. /RHOC/ TD / TR / TA 
A . 10 1 . 0.99800 0.70200 0.9240000 0.99 298.093 257.948 296.481 

2.244446599E-04 a DLACKBODY RADIANCF EOF RICHFOIC TEMPERATURE 
3. 493257 63F-04 * PLACK80DY RADIANCE EOR REFERENCE TEMPERATUPE 
8.5M7807E-04 » BLACKBODY RADIANCE FOR AMBIENT CAL SOURCE TEMPERATURE 
8.56 1 7807 E “04 a BLACKBODY RADIANCE FOR SPHEPE TE M PF.RATURE 
1.3P393694E-03 * 8 l\CKB0DY RADIANCE FOP HEATED CAL0SOURCE TEMPERATUPE 
3 • 5467695 1 9E-04 a REFERENCE RADIANCE CALCULATION 

8. 6.46015 138E-04 a SOURCE RADIANCE AT THE CHOPPER CAL FOP THE AMBIENT SO 
PCE U 

1 • 234347 267E-0 3 a SOURCE RADIANCE AT THE CHOPPER CAL FOR THE HEATED CAL 
SOURCE 

LAMBDA a 8.1 CHANNEL * ft LVLIC ■ 1.84041741ft 
LVLIS - 2.621301783 LVLIE a 2.e3ft83ft27 

3tS333B33t.33S3S3B3B3t3I33333BCBS3IlB33B3B3B33St333B3t33B3383:33t3B33 

C-3 


i 




Page 4 of 5 

SCAN DAY-HR 
ESCl <INPUT>9 
♦GO 77 

ERROR (77) INTERRUPT# L ■ 9# KEVIN NEW L ■ 12 

INPUT FOR LAMBDA 9.3# CHANNEL # 6# ROW « 12 

KEYIN 11 POINTS AROUND 185.9738686 COUNTS 

KEYIN 9.3 SCAN ( 1 ) « 118 

KEYIN 9.3 SCAN! 2 ) - 180 

KEYIN 9.3 SCAN! 3 > - 181 

KEYIN 9.3 SCANC 4 ) b 1<?3 

KEYIN 9.3 SCAN ( 5 > a 124 

KEYIN 9.3 SCAN ( 6 ) * 126 

KEYIN 9.3 SCAN< 7 > = 127 

KEYIN 9.3 SCANC 8 ) ■ 129 

KEYIN 9.3 SCAN! 9 ) - 130 

KEYIN 9.3 SCAN ( 10 ) * 132 

KEYIN 9.3 SCANC 11 ) « 133 

SAMPLE COUNTS ARRAY « 118 120 121 123 124 126 

127 129 130 132 133 

KEYIN "O'* TO CONTINUE# "J" TO CHANGE SCAN "J" 0 


3SSSS«388«a8B*IISBS«S8S8eessaB8SBS«B*B«8SaaSBBSBSS>SSBS«E«ltS8«S 

VOLTAGE ( 9.3# 4) - 7.503E-03 * SCAN ♦ 0.583869818 

KEYIN 5 CHANNEL 6 VALUES APOVMD RELATIVE SCAN LINE 6 


KEYIN 

*' J** 

88 

1 

VALUE 

FOR 

SCAN 

4 

a 

554 

KEYIN 

” J" 

= 

2 

VALUE 

FOR 

SCAN 

5 

a 

560 

KEYIN 

.. Jt, 

a 

3 

VALUE 

FOR 

SCAN 

6 

a 

J62 

KEYIN 

MJt, 

a 

4 

VALUE 

FOR 

SCAN 

7 

a 

560 

KEYIN 

M J4. 

s 

5 

VALUE 

FOR 

SCAN 

A 

s 

557 

SAMPLE 

COUNTS 

ARP AY 

S 

554 



560 

. 4 

0 

0 

0 

0 






KEYIN *'0“ TO CONTINUE# "J" TO CHANGE SCAN "J" 3 

OLD SCAN 3* 0# KEYIN NEV SCAN 3 » 562 

KEYIN '*0** TO CONTINUE# M J M TO CHANGE SCAN " J " 0 


VOLTAGE ( 9.3, 6) = 3.0012E-03 * SCAN * 2.77611 

ssssessasBssaBBSSBssmssBsaBsaBmsBSBsaBsBsaasaaBaaaBaBaaaBXBaBm 


vCHAN (VOLTS ) * 2.79388246 a 3.0012E-03 * 5.921784774 ♦ 2.77611 
VCHAN (COUNTS ) a 558.5530709 


KEYIN "0" TO CONTINUE# "I" TO INPUT CHANNEL "I" DATA 0 
COMPUTED VDAR a 2.6626462R4 

LA MUD A/ F.ESP / EMISS. / RHOD. / PHO". /RHOC/ TD / TP / TA 
9.30 1. 0.9R000 0.76200 0.8909000 0.99 298.093 257. 94R 296. 4R1 

9.591962R4aE-04 a BLACKBODY RADIANCE FOR D1CHR0IC TEMPEPATURE 
4 . 263530757E-04 a BLACKBODY RADIANCE FOR REFEHENCfc lEMPERATURE 
9.323621 744E-04 a 8LACKB0D* KAUlANCE FOP AMBIENT CAL SOURCE TEMPERATURE 


v. 32362 1744E-04 a BLACKBODY RADIANCE rOK SPHERE TEMPERATURE 
I .418631423E-03 « BLACKBODY RADIANCE’ FOR HEATED CAL SOURCE TEMPERATURE 


4. 31681507 BE-04 
9.387486927E-04 

HCE 

1.301 875 1 1 7E-03 

SOURCE 


a REFERENCE RADIANCE CALCULATION 

« SOURCE RADIANCE AT THE CHOPPER CAL FOR THE AMBIENT SO 

U 

a SOURCE RADIANCE AT THE CHOPPER CAL FOR THE HEATED CAL 


LAMBDA a 9.3 CHANNEL « 6 LVLIC a 2.663077966 
L'.LIS b 3.494553382 LVLIF ■ 3.922383726 


B:8SS88t3l888S8aS%SS29S2S33B8828B2C«2IR8«S8lSSC9BS:BflSSSSS3S8:23SCSS 


C-4 


! 

1 


i 


A 



T” 


"T 


1 


3 w 
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ESC t (INPUTJ9 

♦ C-- 

♦GO 77 

ERROR (77 ) INTERRUPT# L ■ 13# KEVIN NEW L * 88 

INPUT FOR LAMBDA 14.1. CHANNEL # 6# ROW • 88 
KEYIN 11 POINTS AROUND 486.0808876 COUNTS 


KEYIN 

14. 1 

SCANC 

I 


* 

399 

KEYIN 

14.1 

SCAN < 

2 


■ 

400 

KEYIN 

14*1 

SCANC 

3 


9 

401 

KEYIN 

14.1 

SCANC 

4 


m 

403 

KEYIN 

14. ! 

SCANC 

5 


9 

405 

KEYIN 

14. 1 

SCANC 

ft 


m 

406 

KEYIN 

14.1 

SCANC 

7 


9 

408 

KEYIN 

14.1 

SCANC 

8 


8 

409 

KEYIN 

14. 1 

SCANC 

9 


* 

411 

KEYIN 

14.1 

SCANC 

10 


) a 

412 

KEYIN 

14. 1 

SCANC 

11 


) a 

> 414 


SAMPLE COUNTS ARRAY « 399 400 401 403 405 406 

40B 409 411 418 414 

KEYIN "0" TO CONTINUE, "J" TO CHANGE SCAN "J" 0 


BSXS3=SKSStBIIIStrs3 3l8lfi3SXEtlt»lltl»lt8tl8ll8RI«IIIIStll31t 

VOLTAGE ( 14.1# 4) « 7.6394181BIE-03 * SCAN ♦ 1,985884945 

:s:s:8838SS383a888888S8S88»8888ia888888S 888S8888888B888888S88 

KEYIN 5 CHANNEL 6 VALUES AROUND RELATIVE SCAN LINE 6 

KEYIN •'J" ■ 1 VALUE FOR SCAN 4 « 450 

KEYIN "J" a S VALUE FOR SCAN 5 a 450 

KEYIN '* J” - 3 VALUE FOR SCAN 6 » 453 

KEYIN "J” ■ 4 VALUE FOR SCAN 7 a 450 

KEYIN "J" a 5 VALUE FOR SCAN 8 ■ 454 

SAMPLE COUNTS ARRAY a 450 450 453 450 454 0 

0 0 0 0 0 

KEYIN "0" TO CONTINUE# "J" TO CHANGE SCAN "J" 0 

BBSSSISSSBra-SSSSSSSBSBtSS^SSSSBlBStSSBSSSSSESSSSIttSSBBSBSSBt 

VOLTAGE ( 14.1# 6) a 4. 00 160000 IE-03 * SCAN + 2.8338938 

BBBBBSBBBSBBlBBBBSSSSSBBSISSBBBSBBBaBtBIBBBBSBBBBBBSBBIBBSBBBt 

VCHAN (VOLTS ) a 8.856574115 * 4.001600001F-03 * 5.6679615*3 ♦ 8.2338932 
VCHANC COUNTS) = 451.1343692 

KEYIN "0" TO CONTINUE# ”1" TO INPUT CHANNEL "I” DATA O 
COMPUTED VBAR a 8.113819884 

LAMBDA/ RESP / EMISS. / RHOD. / RHOM. /RHOC/ TD / TP / TA 
14.13 1. 1.00000 0.72700 0.9715000 0.99 898.093 257.948 296.481 

7.P0294357E-04 = BLACKBODY RADIANCE FOR DICHROIC TEMPERATURE 
4. 1A9963817E-04 a BLACKBODY RADIANCE FOR REFERENCE TEMPERATURE 
7 . 3 *57 2896 8E- 04 = BLACKBODY RADIANCE FOR AMBIENT CAL SOURCE TEMPERATURE 

7. 0*572896 BE *04 = BLACKBODY RADIANCE FOR SPHERE TF<MPEPATURE 

9. 400443 36 BE- 04 « BLACKBODY RADIANCE FOR HEATED CAL SOURCE TEMPERATURE 

4.2O0293615E-04 a REFERENCE RADIANCE CALCULATION 

7. 10318B554E-04 a SOURCE RADIANCE AT THE CHOPPER CAL FOR THE AMBIENT SO 
RCE U 

8.800S25923E-04 a SOURCE RADIANCE AT THE CHOPPER CAL FOR THE HEATED CAL 

SOURCE 

LAMBDA » 14.1 CHANNEL - 6 LVLIC a 2.114239913 
LVLIS ■ 2.907899963 LVLIF ■ 2.993185615 

:S8SSBSS88asesaSKSe88SS888*«C«88B8««BI8t8««Kt8l*38l>ft8f888««S8RtSSS3 


c-s 



T 


"T 


1 






T 


T 


ESCl (INPUT19-U 

+no 3 

.. 3 >. ...... ...SHORT WAVELENGTH CALCULATIONS FOLLOW 


• SHORT WAVELENGTH TABLE 3 


row-- 

- LAMBDA - 

-REF VOLTS- 

-ACTUAL VOLTS- 

-RELATIVE COUNT- 

-RESPONS IVITY 

34 

0*40 

2.51504 

2.513860 

503.52619946 

1.0 

35 

0.42 

2.58373 

2.587652 

517.27802572 

1.0 

36 

0*44 

2.65244 

2.656464 

531.03366140 

1.0 

37 

0*46 

2.72117 

2.725295 

544.79310650 

1.0 

3ft 

0.4ft 

2.78991 

2.794 145 

558.55636101 

1.0 

39 

0*50 

2.85868 

2.863014 

572.32342496 

1.0 

40 

0.52 

2.92746 

2.931902 

586.09429831 

1.0 

41 

0*54 

2.99626 

3.000809 

599.86898109 

1.0 

42 

0*56 

3.06508 

3.069735 

613.64747328 

1.0 

43 

0.58 

3.13392 

3.138680 

627.42977490 

1.0 

44 

0.60 

3.20278 

3.207644 

641.21588592 

1.0 

45 

0.62 

3.27166 

3.276627 

655.00580638 

1.0 

46 

0.64 

3.34056 

3.345630 

668.79953625 

1.0 

*1 

0.66 

3.409tP 

3.414651 

682.59707554 

1.0 

4ft 

0.6ft 

3.47841 

3.483691 

696.39842424 

1.0 

49 

0.70 

3.54737 

3.552751 

710.20358238 

1.0 

50 

0.72 

3.77324 

3.778968 

755.42494741 

1.0 

51 

0.^4 

3.80371 

3.809484 

761.52517691 

1.0 

52 

0.76 

3.8341R 

3.840000 

767.62540642 

1.0 

53 

0.78 

3.86465 

3.870516 

773.72563592 

1.0 

54 

0.80 

3.89512 

3.901032 

779.15*586543 

1.0 

56 

0.R2 

3.92559 

3.931548 

785.92609494 

1.0 

56 

0.B4 

3.9sb06 

3.962064 

792.02632444 

1.0 

57 

0.ft6 

3.98653 

3.992580 

798. 12655395 

1.0 

5 ft 

0* ftft 

4.01700 

4.023096 

804.22678345 

1.0 

59 

0.90 

4.04747 

4.053612 

810.32701296 

1.0 

64 

0.93 

4.09318 

4.099386 

819.47735721 

1.0 

61 

0.96 

4.13888 

4. 145160 

828.62770147 

1.0 

6 ft 

1 . 10 

4.35217 

4.358773 

871.32930802 

1.0 

=0=0 

= 0 = 0 = 0 = 0 

S0S0B0S0S0S 

0*0 *0*0 *0*0*0* 

0*0*0 *0*0 *0*0*0* 

0«0e0*0=0=0=0= 


SC Af DAY-HR:MIN:SEC * 254- 14l 01 44 


INPUT FOP LAMBDA 0.4, CHANNEL # 6, ROW * 34 
KEYIN 11 POINTS AROUND 503.5261995 COUNTS 
KEYIN 0.4 SCAN ( 1 > * H 
ESC: (INPUT1941 

DALLAS & FT. LAUDERDALE USFRSt PLEASE COPY 101OPEP /MESSAOE/. THX. 
♦ 


Example 2. - Short wavelength table 3. 


C-6 




no 1 

....... V-.. ■•...near infpa-red CALCULATIONS FOLLO **'■»•■■■■■■ 

KEYIN DIRECTOR TEMPEPAfURE IN DECREES CENTIGRADE ■ 84.6683 

LEAD SULPHIDE TABLE 4 


row- 

-LAMBDA- 

-P.EF VOLTS- 

-ACTUAL VOLTS- 

-RELATIVE COUNTS- 

-RESP.- 

-FDETITEMP 

*3 

1.40 

0.22605 

0.286397 

45. 25740987 

1 • 

1.1678211 

M 

1.44 

0.29490 

0.295345 

59.04015684 

1. 

1.1615983 

*5 

1 .48 

0.36459 

0.365144 

78.99313180 

1. 

1.1553436 

66 

1.52 

0.43513 

0.435794 

07. 11633430 

1. 

1.1491340 

67 

1.56 

0.50653 

0.507896 

101.40976557 

1* 

1.1429061 

6 8 

1.60 

0.57877 

0.574650 

1 15.07342408 

1* 

1.1366773 

60 

1.64 

0.65187 

0.658055 

130.50731215 

1. 

1.1366773 

70 

1.68 

0.72681 

0.786918 

145.31148755 

U 

1.1366773 

71 

1.72 

0.80061 

0.001 080 

160.80577102 

1. 

1 .1366773 

19 

1.76 

0.87625 

0.077500 

175.43034256 

1 • 

1. 1366773 

73 

1.00 

0.95275 

0.954191 

190.74514217 

1 . 

1. 1366773 

74 

1.84 

1.03009 

1.031654 

806.23016906 

1. 

1.1366773 

7S 

1.88 

1. 10829 

1.109969 

221.00542561 

1* 

1.1366773 

7 6 

1.92 

1 .18733 

1.109335 

237. 71090944 

w 

1.1366773 

77 

1.96 

1.26723 

1.269152 

253 . 70*62 1 34 

1. 

1.1366773 

7* 

2.00 

1.34708 

1.350021 

269.07256132 

u 

1.1366773 

70 

2.04 

1 .42957 

1.431742 

206.20072936 

N 

1.1405591 

80 

2.00 

1 .51202 

1.514314 

302.71512540 

1 . 

1.1604409 

*1 

2. 12 

1.59532 

1.597730 

319.391 749*6 

1. 

1. 1723287 

P 9 

2. 1* 

1.67947 

1.608013 

336.23060192 

1. 

1.1042045 

f'3 

2.20 

1 .76446 

1.767140 

353.25560225 

1. 

1. 1960063 

PL 

2.24 

1.86031 

1.053H9 

370.44299066 

1. 

1. 2079600 

85 

2.28 

1 .93701 

1.939949 

307.00052713 

1. 

1.2190490 

8* 

2. 32 

2.02456 

2.027630 

405.32029160 

1* 

1.2317316 

87 

2.36 

2. 11296 

2. 116164 

423.02620430 

1. 

1.2436134 

88 

2.40 

2.20221 

2.205540 

440.09450490 

1. 

1.2554952 

PQ 

2.44 

2.29231 

2.295705 

450.93295375 

1. 

1.2673770 

00 

2.40 

2.38326 

2.306072 

477. 14163050 

1 * 

1.2792500 


s'' = fl = 0*ft*0*fl*0»9cfl*fl*fl*:0s0=0 = ^*P«0s0e , ^*=0«0*0=!0 = 0s*0«0»0*0*0 s 0 = 0«0*^*0 B 

Example 3. - Near infrared table 4. 


C-7 



















S-191 contingency interrupt overlay 



•NOIL • STATLMLNT § 1 ) IS ACCESSED HY KEYING IN "GO 77 
CARR1ACL RETURN" AFTER AN "ESCAPE" IS HIT, 

OR BY KLYING IN "GO 77 CARRIAGE RETURN" AFTER 
A SVSTLM ERROR OCCURS. 


ITl'KODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


J 


i 





APPENDIX E 

S042-5 SAMPLE IN^UT SOURCE LISTINC 


i 



] 


•SI 91 RAW DATA (CHANNELS Al THROUGH A6) 
PROJECT 1-090-303-LC3-41- 2 


PAGL 787 

DATL 15-UI-C 73 

S042-5 


GMT 

UHs :M1NS : Sl.CS 

13:56:10.827 
13: 5b . 10.828 
13.50- 10.830 
13.50:10.831 
13: SO: 10.833 
13:50:10.834 
13 5010.830 
13:50:10.837 
13 50-10.839 
13 5o l: .84 0 


MISSION 3 
SENSOR S191 

A001 
LNL HAD 
PBS AND SI 3 
COUNTS 

391. 

390. 

393. 

393. 

389. 

386. 

378. 

383. ♦— 

384. - 

387. - 


ORBIT 0 

RECORDING FORMAT S191 (191) 


SITE 0 

FLIGHT DATE 11 SEP 73 


A002 
SWL RAD 

COUNTS 

S. 

5. 

6 . 

7. 

4. 

7. 

7. 

5. 

5. 

5. 


A003 
SWL RAD 
SU 

COUNTS 

IS. 

IS. 

14. 

13. 

14. 

13. 

13. 

13. 

11 . 

11 . 


1 

2< 

3 - 

4- 

5 - 

6* 


A004 

FILTER 

POSITION 

COUNTS 

719. 

721. 

723. 

724. 
-►726. 
-► 727. 
■► 729. 
-► 730. 
-► 732. 
-► 733. 


AOOS 
SWL RAD 
S12 

COUNIS 

6 . 

6 . 

S. 

5. 

S. 

5. 

S. 

5. 

S. 

s. 


A006 
LNL RAD 
DET POS 
COUNTS 

0. 

0. 

0 . 

0. 

0 . 

0 . 

0. 

0 . 

0 . 

0 . 


13 SO 10.842 

391. 

• 4 5. 

12. 7 

■» 73S - 

5. 

0 

13:50 10.843 

39b. 

5 4. 

12. 8 

► 736. 

5. 

0 

13-50. 10.844 

399. 

4. 

12. 9' 

—► 738. 

5. 

0 

1 5.50- 10.840 

401. 

6 . 

13. 10 

—► 739. 

5. 

0 

13 5b . 10 . 84 7 

402. 

6. 

13. 11 

►741. 

5. 

0 

15 5(> 1-1.849 

40b. 

5. 

13. 

741. 

5. 

0 

1 5 SO 10. 8 SO 

409. 

S. 

14. 

744. 

5. 

0 

15 So 10.852 

412. 

7. 

15. 

746. 

5. 

0 

1 3:50- 10.853 

413. 

■?. 

15. 

747 . 

5. 

r 

13.50 10.855 

411. 

7. 

IS. 

748. 

5. 

0 

13.50 10.850 

415. 

6 . 

15. 

750. 

s. 

0 

13 30 10.858 

410. 

4 . 

13. 

752 . 

5. 

u 

i 5 > -10.859 

421. 

3. 

12. 

753. 

5. 

0 

15:50 lu.801 

4 26. 

2. 

11 . 

755. 

5. 

0 

1 5 50. 10. 862 

429. 

1 . 

12. 

75b. 

5. 

0 

1 3 5( 10.803 

427. 

3. 

12. 

758. 

5. 

0 

13 50 lo. ho S 

435. 

3. 

13. 

759, 

5. 

0 

1 5 so: 10.800 

435. 

4 . 

13. 

761. 

5. 

0 

13-50 10.808 

440. 

4. 

12. 

762 . 

5. 

0 

15-50. 10.809 

440. 

4. 

12. 

764 . 

5. 

0 

13:50:10.871 

440. 

3. 

14. 

766. 

5. 

0 

13.50-10.872 

449. 

3. 

14. 

767 . 

5. 

0 


*See appendix C, example 1, wavelength * 8.1 micrometers 
for an application of this source listing and the use 
of the relative scan line numbers. 


E-l 


1 


I 



